-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=16, y1=239, x2=352, y2=428)
-- screen: Rect(x1=0, y1=0, x2=832, y2=624)
-- card dimensions: w=512 h=480
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2792
-- card count: 1
-- first card id: 2872
-- list block id: 3603
-- print block id: 0
-- font table block id: 3415
-- style table block id: 3103
-- free block count: 0
-- free size: 0 bytes
-- total size: 7968 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x02218000
-- compacted by hypercard version: 0x02218000
-- modified by hypercard version: 0x02218000
-- opened by hypercard version: 0x02218000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDBD9DA6B
----- HyperTalk script -----

ON OPENSTACK
  SET RECT OF FLD"NOTE" TO -1,-1,WIDTH OF CARD WINDOW+1,HEIGHT OF CARD WINDOW-15
  set the loc of BG BUTTON"RESIZE" to the width of card window - 8,the height of card window - 8
END OPENSTACK

ON RESUMESTACK
  -- GLOBAL WDW
  -- IF NUMBER OF LINES OF THE WINDOWS<8 THEN
  -- IF WDW IS 1 THEN GO HOME
  -- SEND CLOSESTACK TO THIS STACK
  -- END IF
END RESUMESTACK

ON CLOSESTACK
  PUT EMPTY INTO FLD"NOTE"
  IF FREESIZE OF THIS STACK>SIZE OF THIS STACK DIV 10 THEN
    DOMENU"COMPACT STACK"
  END IF
  PASS CLOSESTACK
END CLOSESTACK

ON RESIZE
  select after text of fld"NOTE"
  PUT ITEM 2 OF THE SELECTEDLOC+SCROLL OF FLD"NOTE" INTO HT
  IF HT>342-TOP OF FLD"NOTE" THEN PUT 342-TOP OF FLD"NOTE" INTO HT
  IF HT<55 THEN PUT 55 INTO HT
  SET RECT OF FLD"NOTE" TO LEFT OF FLD"NOTE",TOP OF FLD"NOTE",RIGHT OF FLD"NOTE",TOP OF FLD"NOTE"+HT+1
  SET RECT OF CARD WINDOW TO LEFT OF CARD WINDOW,TOP OF CARD WINDOW,RIGHT OF CARD WINDOW,TOP OF CARD WINDOW+TOP OF FLD"NOTE"+HT
END RESIZE

-- ON IDLE
-- IF THE SELECTEDLOC IS EMPTY AND THE SELECTEDFIELD IS NOT "message box"
-- THEN SELECT AFTER TEXT OF FLD"NOTE"
-- END IDLE


ON CLOS
  GLOBAL NMA,IDT,MAT--,CDN,STN,SLOC
  HIDE CARD WINDOW
  PUT THE SHORT NAME OF THIS STACK INTO M1
  DELETE CHAR 1 OF M1

  GO (ITEM 2 OF LINE M1 OF NMA&LAST LINE OF NMA)
  PUT EMPTY INTO LINE M1 OF NMA
END CLOS

on CLOSE
  GLOBAL NMA,IDT,MAT,RLIN,TP,BT--,CDN,STN,SLOC

  IF NMA IS  EMPTY THEN  --- FUCK!  PhaaaaaaaaaaaaacK!!!!
    PASS CLOSE
  END IF
  --  PUT THE TICKS INTO T
  HIDE CARD WINDOW
  PUT THE SHORT NAME OF THIS STACK INTO M1
  DELETE CHAR 1 OF M1
  PUT FLD"NOTE" INTO NT

  GO (ITEM 2 OF LINE M1 OF NMA&LAST LINE OF NMA)
  PUT ITEM 1 OF LINE M1 OF NMA INTO NID
  PUT NT INTO FLD (NID-1)
  PUT EMPTY INTO LINE M1 OF NMA

  HIDE BG BUTTON"INS"
  HIDE BG BUTTON"GEN"
  IF VISIBLE OF FLD"INPUT" IS TRUE THEN
    ENTFLD 1
    HIDE FLD"INPUT"
  END IF

  IF LINE 1 OF IDT IS NID THEN PUT 1 INTO NRL
  ELSE  PUT (NUMBER OF LINES OF CHAR 1 TO OFFSET(RETURN&NID&RETURN,IDT) OF IDT)+1 INTO NRL

  IF LINE 1 OF MAT=NRL THEN  PUT 1 INTO TP
  ELSE
    IF RETURN&NRL&RETURN IS NOT IN MAT THEN EXIT CLOSE
    PUT (NUMBER OF LINES OF CHAR 1 TO OFFSET(RETURN&NRL&RETURN,MAT) OF MAT)+1 INTO TP
  END IF
  PUT NRL INTO RLIN
  HYOUJI TP,RLIN
  PUT THE RESULT+TP INTO BT
  SELECT LINE TP TO BT OF FLD"MAIN"
  --PUT THE TICKS-T
end CLOSE